Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")

WshShell.RegWrite "HKCU\Software\KluczTestowy\", 0, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\KluczTestowy\PodkluczTestowy\", 1, "REG_BINARY"
WshShell.RegWrite "HKCU\Software\KluczTestowy\PodkluczTestowy\Test", "warto", "REG_SZ"
